; $VER: DMS Install 1.00 (1.4.94)
;script to install Device-Masher System v2

(complete 0)

;=============================================================================

(set #General
(cat "\n\nYou can find other utilities by ParCon Software "
     "On this distribution disk. Which can increase the performance of "
     "your Amiga."
     "\n\n\nSPREAD THE WORD, AND THIS DISK!"
))

;Get directory to install DMS v2 in.
(set destdir 
	(askdir 
		(prompt "In which drawer should DMS v2 be installed?") 
		(help @askdir-help)
		(default (tackon @default-dest "DMSv2"))
	)
)

(set vernum (getversion))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536) ) )

(complete 10)

;Determine system version and copy appropriate libraries.
(if (> ver 36)
	(
		(copylib 
			(source "Device-Masher System v2:Libs/reqtools.library")
			(dest "LIBS:")
		)
	)
	(
		(copylib 
			(source "Device-Masher System v2:Libs/reqtools13.library")
			(dest "LIBS:reqtools.library")
		)
	)
)

(complete 30)

;Copy AmigaGuide files to destination.

(copyfiles
	(source "Device-Masher System v2:DMS.DOC")
	(dest destdir)
)
(copyfiles
	(source "Device-Masher System v2:DMS.DOC.info")
	(dest destdir)
)
(copyfiles
	(source "Device-Masher System v2:DMS.Guide")
	(dest destdir)
)
(copyfiles
	(source "Device-Masher System v2:DMS.Guide.info")
	(dest destdir)
)

(copyfiles
	(source "Device-Masher System v2:Update.DOC")
	(dest destdir)
)
(copyfiles
	(source "Device-Masher System v2:Update.DOC.info")
	(dest destdir)
)

(complete 40)

;Copy program files to destination.
(copyfiles
	(source "Device-Masher System v2:DMS")
	(dest destdir)
)
(copyfiles
	(source "Device-Masher System v2:DMS.info")
	(dest destdir)
)
(copyfiles
	(source "Device-Masher System v2:UNDMS")
	(dest destdir)
)
(copyfiles
	(source "Device-Masher System v2:UNDMS.info")
	(dest destdir)
)
(copyfiles
	(source "Device-Masher System v2:DMSWB")
	(dest destdir)
)
(copyfiles
	(source "Device-Masher System v2:DMSWB.info")
	(dest destdir)
)

(complete 90)

(message #General)

(complete 100)

(exit)
